home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / gfx / 3d / rayshade40_enh2.lha / Examples / cork.ray < prev    next >
Text File  |  1992-10-04  |  3KB  |  172 lines
  1. # 1 "cork_screw.ray"
  2.  
  3.  
  4.  
  5. screen 320 400
  6.  
  7. eyep -3 -33 6
  8. lookp .2 .2 3
  9. background 0 0 1
  10. fov 45 34
  11.  
  12. sample 3
  13. maxdepth 3
  14.  
  15. light 1 1 1  point 500 -500 500
  16.  
  17. surface this_red
  18.     ambient .5 0 0
  19.     diffuse 1 0 0
  20.  
  21. surface red
  22.     ambient .1 0 0
  23.     diffuse 1 0 0
  24.  
  25. surface black
  26.     ambient 0 0 0
  27.     diffuse 0 0 0
  28.  
  29. surface brown diffuse 0.3147 0.0794 0.0118 ambient 0.1049 0.0265 0.0039
  30.  
  31. surface neon_blue
  32.         ambient 0.0329 0.4621 0.5125
  33.         diffuse .5 .5 .5
  34.         specular .3 .3 .3
  35.         specpow 67
  36.  
  37. surface hot_pink
  38.     ambient 1.000 0.461 0.461
  39.         diffuse .4 .4 .4
  40.         specular .3 .3 .3
  41.         specpow 85
  42.  
  43. surface hot_green
  44.     ambient 0.442 1.000 0.309
  45.     diffuse .4 .4 .4
  46.     specular .3 .3 .3
  47.     specpow 70
  48.  
  49. surface handle
  50.     ambient 0 0 0
  51.     diffuse .1 .1 .1
  52.     specular .5 .5 .5
  53.     specpow 50
  54.  
  55.  
  56. surface st_steel
  57.     ambient .1 .1 .1
  58.     diffuse .3 .3 .3
  59.     specular 1 1 1
  60.     specpow 300
  61.     reflect 1
  62.  
  63. surface tan
  64.     ambient 0.305 0.255 0.12
  65.     diffuse 0.709 0.509 0.236
  66.     
  67. plane red 0 0 -7.1  0 0 1
  68.         texture checker black
  69.                 scale 10 10 10
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77. name cscrew list
  78.     sweptsph handle bezier -10 0 0  -7 0 0  7 0 0  10 0 0
  79.         1 6 -6 0
  80.         scale 1.8 1.8 1.8
  81.         translate 0 0 (11*2.7 )
  82.  
  83.     cylinder st_steel .7   0 0 (11*2.7 )  0 0 (8*2.7 )
  84.  
  85.     sweptsph st_steel
  86.         xbezier 0 0 (-2 ) (-2 )
  87.         ybezier 0 0 (-2 *1.31 ) 0
  88.         zcoeffs (8*2.7 ) (-2.7 ) 0 0
  89.         .7  0 0 0
  90.  
  91.     list
  92.         sweptsph st_steel
  93.             xbezier 2  2  -2  -2 
  94.             ybezier 0 (2 *1.31 ) (2 *1.31 ) 0
  95.             zcoeffs 0 2.7  0 0
  96.             .7  0 0 0
  97.  
  98.         sweptsph st_steel
  99.             xbezier -2  -2  2  2 
  100.             ybezier 0 (-2 *1.31 ) (-2 *1.31 ) 0
  101.             zcoeffs 2.7  2.7  0 0
  102.             .7  0 0 0
  103.  
  104.         sweptsph st_steel
  105.             xbezier 2  2  -2  -2 
  106.             ybezier 0 (2 *1.31 ) (2 *1.31 ) 0
  107.             zcoeffs (2*2.7 ) 2.7  0 0
  108.             .7  0 0 0
  109.  
  110.         sweptsph st_steel
  111.             xbezier -2  -2  2  2 
  112.             ybezier 0 (-2 *1.31 ) (-2 *1.31 ) 0
  113.             zcoeffs (3*2.7 ) 2.7  0 0
  114.             .7  0 0 0
  115.  
  116.         sweptsph st_steel
  117.             xbezier 2  2  -2  -2 
  118.             ybezier 0 (2 *1.31 ) (2 *1.31 ) 0
  119.             zcoeffs (4*2.7 ) 2.7  0 0
  120.             .7  0 0 0
  121.  
  122.         sweptsph st_steel
  123.             xbezier -2  -2  2  2 
  124.             ybezier 0 (-2 *1.31 ) (-2 *1.31 ) 0
  125.             zcoeffs (5*2.7 ) 2.7  0 0
  126.             .7  0 0 0
  127.  
  128.         sweptsph st_steel
  129.             xbezier 2  2  -2  -2 
  130.             ybezier 0 (2 *1.31 ) (2 *1.31 ) 0
  131.             zcoeffs (6*2.7 ) 2.7  0 0
  132.             .7  0 0 0
  133.  
  134.     end
  135.  
  136.  
  137.         sweptsph st_steel
  138.             xbezier 2  2  (2 *1.31 /2) 0
  139.             ybezier 0 (-2 *1.31 /2) -2  -2 
  140.             zcoeffs 0 (-0.5*2.7 ) 0 0
  141.             .7  -.7  0 0
  142.  
  143. end
  144.     scale .3 .3 .3
  145.  
  146.  
  147. object cscrew rotate .4 .4 1  45
  148.  
  149.  
  150. name cork list
  151.     cone tan
  152.         2.3 0 0 0
  153.         1.8 0 0 -5
  154.     disc tan 2.3  0 0 0  0 0 1
  155.     disc tan 1.8  0 0 -5  0 0 -1
  156. end
  157.     texture bump 1
  158.         scale .2 .2 .2
  159.     texture blotch -.5 brown
  160.         scale .2 .2 .2
  161.     texture blotch -.5 brown
  162.         scale .2 .2 .2
  163.     texture blotch -.2 black
  164.         scale .2 .2 .2
  165.     texture blotch -.2 black
  166.         scale .2 .2 .2
  167.  
  168. object cork
  169.     translate 0 0 -2
  170.     rotate .4 .4 1 45
  171.  
  172.